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(3) 77 DECLARATIONS 
(4) 103 RMSCREATE1 = SEQUENTIAL CREATE ROUTINE 


bbe ATE SEQUENTIAL“SPECIFIC CREATE 


16-SEP-1984 00:46: AX/VMS Macro V04-00 Page 1 
ae iSet yy 99:58:98 YRS. SRCIRM1CREATE.MAR; 1 ° (1) 
SBEGIN RMICREATE,000,RMSRMS1,<SEQUENTIAL-SPECIFIC CREATE> 


PAAR AAARASAAAAAALALALALEALAAS ELAS ELLE EAE SEE EERE AEE EERE SESE E EEE SERRE EEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS cent see UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INC OF THE ABOVE C F TWARE NY OTHER 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


:® * 
* * 
* * 
:* * 
:f * 
:* * 
3% te 
® * 
* * 
s® OTH * 
;* TRANSFERRED. * 
sf * 
s® * 
:* * 
sf * 
s* * 
:* * 
:* * 
:* * 
st e 
:* t 
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v04 ae 7 99:59:98 CAMS SRCJRMT CREATE MAR: 1 
++ 
Facility: rms32 
Abstract: 


this routine performs the sequential file 
organization-specific create processing. 


Clean up psects 


Environment: 

9 star processor running starlet exec. 

8% Author: L F Laverdure, Creation Date: 11-MAY-1977 

8 Modified By: 
000 v03-004 KBT0428 Keith B. Thompson 3-Dec-1982 
B08 Change ifb$w_devbufsiz to ifb$l_devbufsiz 
000 v03-003 MCNO001 Maria del C. Nasr 30-Nov-1982 
000 Do not round up device buffer size to multiple of four 
O60 if device is foreign magtape. 
000 vG3-002 KBT0137 Keith B. Thompson 20-Aug-1982 
B28 Reorganize psects 
B38 v03-001 KBT0094 Keith 8B. Thompson 13-Jul-1982 
000 


SSNS IDDBA DDD TIE BE EEE EE 
MEW 9 OONAUE WN $$ O OONAUE WN O OO NAME OOONOUS 


SoOOCOCCOSOCSCOSOCOSOOOSCOSOOSO OOOO OoOoOO 


000 v02-017 CdS0001 C Saether 31-Aug-1981 
4 Always set NORECLK if not disk (RND). 
000 V02-016 RASO020 Ron Schaefer 6-Aug-1981 
000 Correct fixed record length Limit for magtape. 
000 ANY size record is permitted as long as the blocks 
it are larger than 18 bytes. 
000 V02-015 RASO016 Ron Schaefer 6-Aug-1981 
000 allow stream files to any device; actual GET/PUT Logic 
888 is prepared to ignore the format if necessary. 
099 v014 REFORMAT D M WALP 24-JUL_1980 
000 v013 Cds0021 _ C SAETHER 26-JUL-1979 22:30 
805 take file sharing checks out of rm$createl 
000 
i 
00 
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v04 DECLARATIONS maar 0:58:48 FRMS. SRCIRM TRE EATE.MAR; 1 ° 3) 
4 ~SBTTL DECLARATIONS 
8 3 
» : Include Files: 
4 ; Macros: 
33 
5 $ $F ABDEF 
8 SIFBDEF 
SDEVDEF 
0 0 SRMSDEF 
91 
000 «98; 
0 93 ; Equated Symbols: 
000 94 ; 
44 95 
00000020 000 96 FOP=F ABSL_FOP*8 3; bit offset to fop 
444 97 
000 98 ; 
0000 99 ; Own Storage: 
0000 100 ; 
0000 101 


DE 
DE 
) 
1 
I 
I 
I 
I 
I 
I 
I 
I 
P] 
RP 
RP 
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V04 RMSCR : - SEQUENTIAL CREATE ROUTINE $2$Eb= 1982 93:38:98 RMS.SRCIRMICREATE .MAR; 1 ° (4) 
~SBTTL RMSCREATE1 = SEQUENTIAL CREATE ROUTINE 
++ 
RMSCREATE1 


RMSCREATE1 


this routine performs all of the file create 
functions that are specific to the sequential 
file organization, including: 


checking that Apatite Aggy has not been specified 
allowing user to override default block size fer magtape 
performing eof positioning to start of file 

checking xab chain validity | 

calling the common create routine 


OOOOCCCGCOCOCoCooooo »}- 
OOOOOCOCOCOCOCOoOCOCOoSooO - 


ULPWN— 
eeeee 


S 


SOOCOCSCCOSOSOCSOOSSOSSOSSSSSOCOSCCOCOSCOSCOCOOOOCSOOOOOOOOOCOoOOoOOo Mm», 


Calling sequence: 


entered via case branch from rm$open 
returns by jumping to rm$createxit 


Input Parameters: 


rii impure area address 
r10 fwa address 


Implicit Inputs: 
the contents of the fah, ifab, & fwa. 
Output Parameters: 


r0 status code 
ri-r7 destroyed 


Implicit Outputs: 

various fields in the ifab & fab are initialized. 
Completion Codes: 

standard rms 
Side Effects: 

none 


Bete Ge Ge Se Ge See Ge Ge Se Ge Se Ge Ge Se Fe Fe Se Se Se Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Ge Se Se Sse Se Se Sete te Ge Ge 
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ifab address 
r8 fab address 
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RMICREATE SEQUENTIAL=SPECIFIC CREATE 16-SEP-1984 00:46: AX/VMS M v04- Page 
v04 RASTREATE - SEQUENTIAL CREATE ROUTINE eet 7 99:58:48 RMS. SRCIRM TCRE EATE OMAR: 1 (3) 
136 RMSCREA Tels 
1 TSTPT CREATE1 
0 138 
9 3 186 ; iding interlocki 
3 providing interlocking 
006 161; 
0006 16 
69 1C £0 0006 16 BBS s0evSy. RND, IFBSL_PRIM_ egg ek 
2E S444 192 SETBL1~ branch if disk 
$008 166 SSB #IFBSV_NORECLK, (R9) ; never do locking if not disk. 
51 Ad 8 8A 4 167 BICB2 PEABSHTBLK [F5$B RAT (RO); clear blk for unit rec devices 
69 E1 0012 168 BBC #DEVSV~SQD, IFBSL-PRIM_DEV(R9), 
16 001 169 SET 3 branch if not mt 
0016 170 
0016 171 ; 
0016 \7¢ ; force ‘records can't cross block boundaries’ and 
0016 175 ; check for default block size override for magtape 
0016 174; 
0016 175 
51 3C A8 BO 0016 176 MOVW FABSW_BLS(R8) ,R1 3 get block size 
OC 13 OO1A 177 BEQL ; branch if not speced 
12 51 Bi OO1C 178 CMPW R1,#18 ; is block size ge min. 
03 1& OO1F 179 BGEQU § 10$ : branch if yes 
5 ae BO 0021 180 MOVW #18,R1 ; minimum record size 
48 A951 C b058 13) 10$: MOVZWL R1, [FBSL_DEVBUFS1Z(R9) ; set device buffer size 
0028 183 208: SSB #1FBSV_ANSI_D,(R9) ; flag as ansi 
pase 184 
002c 185 ; : 
002C 186 ; round up bls & return it 
C02C 187 ; 
002C 188 
69 18 £0 002C 189 SETBLS: BBS #DEVSV_FOR, IFBSL_PRIM_ DEV(R9), - 
08 Onn 190 SETBLT © not round up if foreign magtape 
48 A9 (03 CO 00350 191 ADDL2 #3,1FBSL_ th TBE 
48 AD 03 CA 0034 136 BICL2 #3, 1FBSL_DEVBUFSIZ(R9) 
3C AB 48 AD «©BO 0038) «6193 SETBL1: MOVW = IFBSL DEVBUFSIZ(R9). FABSW_BLS(R8) 
008 C9 606 «6©€1 «6(003D) = =—194 BBC #DEVST_SPL, IFBSL_AS_DEV(R9) ,- h 
06 boas 195 SETEOF™ : branch if device not spooled 
0094 C9 BO 0043 196 MOVW § IFB$L_ASDEVBSIZ(R9) ,- 
3C A8 0047 197 FABSW_BLS(R8) ; return assigned device buf size 
0049 199 
$029 00 ; set eof block to vbn 1 and first free byte to 0. 
0049 01 ; 
0049 Oe 
74 AD 6 Boer 04 SETEOF: INCL IFBSL_EBK(R9) ; eof at vbn 1 
4C . . 
3 06 ; if fixed record format and ‘blk* set in rat, 
04C 07 ; make sure record size is less than 1 block 
004C 08 ; 
Bote 09 
50 Ad) =—s-«91s—« O04 10 CMPB IFB$B_RFMORG(RY) ,- ' 
01 Bnet 11 tate FIX : fixed rfm? 
oc 62 50 12 BNEQ CHKXAB 3; branch if not 


] 
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v04- RASCREATES - SEQUENTIAL CREATE ROUTINE -SEP-1984 0:48:48 RMS.SRCIRMICREATE.MAR; 1 . (8) | 
51 a9 3 €1 13 BBC #F ABSV_BLK, IFBSB_RAT(R9),- | 
14 CHKXAB : branch if ‘blk* not speced 
6? AS sC«iBI1 15 CMPW 1FBSW_MRS(RY) ,- 
48 AQ A if IF BSL ~DEVBUFSI2(R9) : does record fit? 
14 1A 05 BGTRU RMSCRE_ERRMRS : branch if not 
3 i va | 
003E 1; entry point for block i/o create for unknown file org 
08 958 i= 
BOE 4 
5E 5 RMSBIO_CREATE:: 
OO5E 6 
O05E 7; 
Ope 8 3 process allocation xab if present, and set deq and rtdeq 
OOSE $5 
O0O5E 31 CHKXAB: 
FF9F* 30 QOSE 3 BSB RMSSETALLOC 
07 50 €&9 0061 3 BLBC RO,EXIT 
0064 34 
0064 35 3 
0064 36 ; cali the common create file routine 
0064 37; 
0064 38 
FF99" 30 0064 239 BSBW RMSCREATECOM 
0067 40 
0067 41; 
0067 4g 3; note that file is prerssenee at eof in the ifab 
0067 243 ; so that connect will be set up for $put. 
0067 244; 
0067 245 
0067 246 SSB #IFBSV_EOF,(R9) : flag eof 
FF92" 31 006B 247 EXIT: BRW RMSCREATEXIT 
| 
| 
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v04 RRSCREATET - SEQUENTIAL CREATE ROUTINE moet 90:59:98 RMS.SRCIRMICREATE.MAR; 1 . 
E 49 
4: 0; 
43 : handle errors 
6E ‘ 
6 4 RMSCRE_ERRRFM:: 
06 10 : 35 BSBB ERROR ; cfm not udf,fix,var, or vfc 
4 2$ RMSERR_WORD RFM : for non-disk device 
oF 58 RMSCRE_ERRMRS:: 
02 10 7 59 BSBB ERROR : fixed record Length <18 
1) ¢ RMSERR_WORD MRS ; for magtape or > bls and ‘blk" set 
50 =9E $f 076 86 ERROR: MOVZWL a@(SP)+,RO : pick up error code 
FFG" 1 9079 6 BRW RMSCREATEXIT ; and get out 
007C¢ 64 
007¢ 65 - END 


RMICREATE 
Symbol table 


$$.PSECT_EP 
SSRMSTEST 
$SRMS_PBUGCHK 
$SRMS ~ TBUGCHK 
$SRMS-UMODE 


DEVS$V_SPL 
DEV$v~SaD 
RROR 


" 
c-o- 
YRK UM 


e 

= 
tata 
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tttt a 
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$B" RFMORG 
$L"ASDEVBS1Z 
“AS_DEV 
$L-DEVBUF SIZ 
St _PRIM_DEV 
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SE TEOF 
TPTSL_CREATE1 


PSECT name 


nonanu 


SEQUENTIAL=SPECIFIC CREATE 


Ss soS=stesass 
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teereeee 
teeeeeee 
00000072 
0000006E 


reeearrae 


00018504 


90000088 
0000002C 
00000049 


Allocation 
00000000 
0000007C 
00000000 
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16-SEP-1984 00:46:< AX/VMS Macro V04-00 
Ep 984 70:39:98 RMS.SRCIRMICREATE .MAR; 1 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
temo rtourereaneeceen ee Sa 
H Psect synopsis ! 
PSECT No. Attributes 
0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
4.) O01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR’ EXE WRT NOVEC BYTE 


Ae &, | 


| 
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VAX-11 Macro Run Statistics SEP=1984 16:25: RMS.SRCIRMICREATE .MAR; 1 (7 


twa nena neem meres econ eer oe > 


! Performance indicators ! 


pow enw nrsoeten ese eee ener e say 


Phase Page faults CPU Time Elapsed Time 

Initialization 33 0:00: 99 0: §:00.49 

Command processing 114 0:00:00.71 0:00:04.11 
Pass 1 236 0:00:05.9 0: eS be 

Symbol table sort 9 0:00:00. 0:00:01. 

Pass 5 8: ” 1. : 838 a" 

Symbol table output 7 :00:00. :00:00. 

Psect synopsis output 1 0:00:00.0 +e ON BS 

Cross-reference output 8 3 BR: 3-9 bs Bs 

Assembler run totals 45 00:00:08. 00:00:27.49 


The yorking set Limit was 1350 pages. 
33677 bytes (66 pages) of virtual memory were used to buffer the intermediate code. 
There were 40 pages of symbol table space allocated to hold 665 non-local and 5 local symbols. 
265 source Lines were read in Pass 1, producing 13 object records in Pass 2. 
6 pages of virtual memory were used to define 15 macros. 
| 


Geowececeecesceoececooceccn$ 


H Macro Library statistics ; 


Macro Library name Macros defined 
_$255$DUA28: (RMS .OBJJRMS.MLB; 1 7 
_$255$0UA28: (SYS .OBJJLIB.MLB; 1 0 
$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 11 


747 GETS were required to define 11 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RM1ICREATE/OBJ=OBJ$:RMICREATE MSRC$:RMICREATE/UPDATE=(ENHS:RMICREATE) +EXECML$/LIB+LIB$:RMS/LIB 
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